home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_52 / w.ma < prev    next >
Text File  |  1995-01-01  |  972b  |  56 lines
  1. @include \mbin\mh\wind.mh
  2.  
  3. #
  4. #
  5. # Demo of basic window types.
  6. #
  7. # Mos controller windows.
  8. # Output windows.
  9. #
  10.  
  11. int outwd
  12.  
  13. riff openWindows()
  14.     # 3 kinds of mos basic controller windows
  15.     void mosWindow(WVCO,0,0)
  16.     void mosWindow(WTIME,0,35)
  17.     void mosWindow(WRCC,0,60)
  18.     # 2 kinds of output/printf/debug windows
  19.     void outputWindow(WDEBUG,10,0,15,25,"printf") # halfway
  20.      outwd = outputWindow(WDISPLAY,16,10,18,30,"chord")
  21. end
  22.  
  23. vco testit()
  24.     int rval
  25.      void openWindows()
  26.     for(;;)
  27.         mchoose(C,D,E,F,G,A,B,HC)    q
  28.         rval = mchoose(0,1,2)
  29.         switch(rval)
  30.         case 0:
  31.             void printf("how the BLAZES are you today anyway\n")
  32.              void wprintf(outwd,"C chord")
  33.             end
  34.         case 1:
  35.             void printf("curioser and curioser\n")
  36.             void wprintf(outwd,"D chord")
  37.             end
  38.         case 2:
  39.             void dumptime()
  40.             void printf("what, me worry?\n")
  41.              void wprintf(outwd,"E chord")
  42.             end
  43.         end
  44.     end
  45. end
  46.  
  47. vco second
  48.     for(;;)
  49.         LE    w
  50.         LD    w
  51.         LC    w
  52.     end
  53. end
  54.  
  55.  
  56.